set cardnumber to the text of member "Card Number"
set expires to the text of member "Expires"
else
if the hilite of member "Visa" then
set payment to "Visa"
set cardnumber to the text of member "Card Number"
set expires to the text of member "Expires"
else
if the hilite of member "Discover" then
set payment to "Discover"
set cardnumber to the text of member "Card Number"
set expires to the text of member "Expires"
end if
end if
end if
end if
set birthday to the text of member "Birthday"
append(doc, RETURN & RETURN & "Interactive Quarterly Suscription Form" & RETURN & RETURN, the text of member "Offer" & RETURN & RETURN, "Name: ", the text of member "Name" & RETURN, "Address: ", the text of member "Address" & RETURN, "City: ", the text of member "City" & RETURN, "State: ", the text of member "State" & RETURN, "Zip: ", the text of member "Zip" & RETURN, "Country: ", the text of member "Country" & RETURN, "Phone: ", the text of member "Phone" & RETURN, "Fax: ", the text of member "Fax" & RETURN, "Email: ", the text of member "Email" & RETURN & RETURN, "Payment: ", payment & RETURN, "Card #: ", cardnumber & RETURN, "Expiration Date: ", expires & RETURN, "Date Of Birth: ", birthday & RETURN & RETURN, "Signature: ___________________________________________")
